home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / mac / tclMacInt.h < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-15  |  1.8 KB  |  69 lines  |  [TEXT/CWIE]
  1. /*
  2.  * tclMacInt.h --
  3.  *
  4.  *    Declarations of Macintosh specific shared variables and procedures.
  5.  *
  6.  * Copyright (c) 1996-1997 Sun Microsystems, Inc.
  7.  *
  8.  * See the file "license.terms" for information on usage and redistribution
  9.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10.  *
  11.  * SCCS: @(#) tclMacInt.h 1.23 97/07/28 11:04:00
  12.  */
  13.  
  14. #ifndef _TCLMACINT
  15. #define _TCLMACINT
  16.  
  17. #ifndef _TCL
  18. #   include "tcl.h"
  19. #endif
  20. #ifndef _TCLMAC
  21. #   include "tclMac.h"
  22. #endif
  23.  
  24. #include <Events.h>
  25. #include <Files.h>
  26.  
  27. #pragma export on
  28.  
  29. /*
  30.  * Defines to control stack behavior
  31.  */
  32.  
  33. #define TCL_MAC_68K_STACK_GROWTH (256*1024)
  34. #define TCL_MAC_STACK_THRESHOLD 16384
  35.  
  36. /*
  37.  * Typedefs used by Macintosh parts of Tcl.
  38.  */
  39. typedef pascal void (*ExitToShellProcPtr)(void);
  40.  
  41. /*
  42.  * Prototypes for functions found in the tclMacUtil.c compatability library.
  43.  */
  44.  
  45. EXTERN int     FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
  46. EXTERN int     FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
  47. EXTERN OSErr     FSpFindFolder _ANSI_ARGS_((short vRefNum, OSType folderType,
  48.             Boolean createFolder, FSSpec *spec));
  49. EXTERN void    GetGlobalMouse _ANSI_ARGS_((Point *mouse));
  50.  
  51. /*
  52.  * Prototypes of Mac only internal functions.
  53.  */
  54.  
  55. EXTERN void    TclCreateMacEventSource _ANSI_ARGS_((void));
  56. EXTERN int    TclMacConsoleInit _ANSI_ARGS_((void));
  57. EXTERN void    TclMacExitHandler _ANSI_ARGS_((void));
  58. EXTERN void    TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
  59. EXTERN OSErr    TclMacInstallExitToShellPatch _ANSI_ARGS_((
  60.             ExitToShellProcPtr newProc));
  61. EXTERN int    TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
  62. EXTERN void    TclMacRemoveTimer _ANSI_ARGS_((void *timerToken));
  63. EXTERN void *    TclMacStartTimer _ANSI_ARGS_((long ms));
  64. EXTERN int    TclMacTimerExpired _ANSI_ARGS_((void *timerToken));
  65.  
  66. #pragma export reset
  67.  
  68. #endif /* _TCLMACINT */
  69.